home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / DMIBrowse2CmtURL.rexx < prev    next >
OS/2 REXX Batch file  |  2002-10-27  |  588b  |  28 lines
  1. /* $VER: DMIBrowse2CmtURL.rexx 1.0 (25.5.98) by J. Tierney
  2.  
  3.   DiskMaster II IBrowse To Comment's URL  v1.0
  4.   5/25/98  J. Tierney
  5.  
  6.   Purpose:  Tells IBrowse to go to the URL contained in the selected file's
  7.            comment.
  8.  
  9.   Usage:  Single; REXX DMIBrowse2CmtURL.rexx %s
  10. */
  11.  
  12. PARSE ARG fname
  13.  
  14. who = ADDRESS()
  15. tmpfile = 'PIPE:Cmt' || who
  16.  
  17. ADDRESS COMMAND 'List >' || tmpfile fname 'LFORMAT %C'
  18. CALL OPEN('fh', tmpfile, 'R')
  19. url = READLN('fh')
  20. CALL CLOSE('fh')
  21.  
  22. IF SHOW('P', 'IBROWSE') THEN DO
  23.   ADDRESS 'IBROWSE'
  24.   GOTOURL url
  25.   END
  26. ELSE ADDRESS COMMAND 'RUN TTCP:IBrowse/Ibrowse' url
  27.  
  28.